How can I convert multiple If statements into a single If-Else structure in VBA